YES 1.6560000000000001 H-Termination proof of /home/matraf/haskell/eval_FullyBlown_Fast/FiniteMap.hs
H-Termination of the given Haskell-Program with start terms could successfully be proven:



HASKELL
  ↳ LR

mainModule FiniteMap
  ((eltsFM_GE :: FiniteMap Char a  ->  Char  ->  [a]) :: FiniteMap Char a  ->  Char  ->  [a])

module FiniteMap where
  import qualified Maybe
import qualified Prelude

  data FiniteMap b a = EmptyFM  | Branch b a Int (FiniteMap b a) (FiniteMap b a


  instance (Eq a, Eq b) => Eq (FiniteMap b a) where 

  eltsFM_GE :: Ord a => FiniteMap a b  ->  a  ->  [b]
eltsFM_GE fm fr foldFM_GE (\key elt rest ->elt : rest) [] fr fm

  foldFM_GE :: Ord c => (c  ->  a  ->  b  ->  b ->  b  ->  c  ->  FiniteMap c a  ->  b
foldFM_GE k z fr EmptyFM z
foldFM_GE k z fr (Branch key elt _ fm_l fm_r
 | key >= fr = 
foldFM_GE k (k key elt (foldFM_GE k z fr fm_r)) fr fm_l
 | otherwise = 
foldFM_GE k z fr fm_r


module Maybe where
  import qualified FiniteMap
import qualified Prelude



Lambda Reductions:
The following Lambda expression
\keyeltrestelt : rest

is transformed to
eltsFM_GE0 key elt rest = elt : rest



↳ HASKELL
  ↳ LR
HASKELL
      ↳ BR

mainModule FiniteMap
  ((eltsFM_GE :: FiniteMap Char a  ->  Char  ->  [a]) :: FiniteMap Char a  ->  Char  ->  [a])

module FiniteMap where
  import qualified Maybe
import qualified Prelude

  data FiniteMap b a = EmptyFM  | Branch b a Int (FiniteMap b a) (FiniteMap b a


  instance (Eq a, Eq b) => Eq (FiniteMap b a) where 

  eltsFM_GE :: Ord a => FiniteMap a b  ->  a  ->  [b]
eltsFM_GE fm fr foldFM_GE eltsFM_GE0 [] fr fm

  
eltsFM_GE0 key elt rest elt : rest

  foldFM_GE :: Ord b => (b  ->  c  ->  a  ->  a ->  a  ->  b  ->  FiniteMap b c  ->  a
foldFM_GE k z fr EmptyFM z
foldFM_GE k z fr (Branch key elt _ fm_l fm_r
 | key >= fr = 
foldFM_GE k (k key elt (foldFM_GE k z fr fm_r)) fr fm_l
 | otherwise = 
foldFM_GE k z fr fm_r


module Maybe where
  import qualified FiniteMap
import qualified Prelude



Replaced joker patterns by fresh variables and removed binding patterns.

↳ HASKELL
  ↳ LR
    ↳ HASKELL
      ↳ BR
HASKELL
          ↳ COR

mainModule FiniteMap
  ((eltsFM_GE :: FiniteMap Char a  ->  Char  ->  [a]) :: FiniteMap Char a  ->  Char  ->  [a])

module FiniteMap where
  import qualified Maybe
import qualified Prelude

  data FiniteMap a b = EmptyFM  | Branch a b Int (FiniteMap a b) (FiniteMap a b


  instance (Eq a, Eq b) => Eq (FiniteMap b a) where 

  eltsFM_GE :: Ord b => FiniteMap b a  ->  b  ->  [a]
eltsFM_GE fm fr foldFM_GE eltsFM_GE0 [] fr fm

  
eltsFM_GE0 key elt rest elt : rest

  foldFM_GE :: Ord c => (c  ->  b  ->  a  ->  a ->  a  ->  c  ->  FiniteMap c b  ->  a
foldFM_GE k z fr EmptyFM z
foldFM_GE k z fr (Branch key elt vw fm_l fm_r
 | key >= fr = 
foldFM_GE k (k key elt (foldFM_GE k z fr fm_r)) fr fm_l
 | otherwise = 
foldFM_GE k z fr fm_r


module Maybe where
  import qualified FiniteMap
import qualified Prelude



Cond Reductions:
The following Function with conditions
foldFM_GE k z fr EmptyFM = z
foldFM_GE k z fr (Branch key elt vw fm_l fm_r)
 | key >= fr
 = foldFM_GE k (k key elt (foldFM_GE k z fr fm_r)) fr fm_l
 | otherwise
 = foldFM_GE k z fr fm_r

is transformed to
foldFM_GE k z fr EmptyFM = foldFM_GE3 k z fr EmptyFM
foldFM_GE k z fr (Branch key elt vw fm_l fm_r) = foldFM_GE2 k z fr (Branch key elt vw fm_l fm_r)

foldFM_GE0 k z fr key elt vw fm_l fm_r True = foldFM_GE k z fr fm_r

foldFM_GE1 k z fr key elt vw fm_l fm_r True = foldFM_GE k (k key elt (foldFM_GE k z fr fm_r)) fr fm_l
foldFM_GE1 k z fr key elt vw fm_l fm_r False = foldFM_GE0 k z fr key elt vw fm_l fm_r otherwise

foldFM_GE2 k z fr (Branch key elt vw fm_l fm_r) = foldFM_GE1 k z fr key elt vw fm_l fm_r (key >= fr)

foldFM_GE3 k z fr EmptyFM = z
foldFM_GE3 wv ww wx wy = foldFM_GE2 wv ww wx wy

The following Function with conditions
undefined 
 | False
 = undefined

is transformed to
undefined  = undefined1

undefined0 True = undefined

undefined1  = undefined0 False



↳ HASKELL
  ↳ LR
    ↳ HASKELL
      ↳ BR
        ↳ HASKELL
          ↳ COR
HASKELL
              ↳ Narrow

mainModule FiniteMap
  (eltsFM_GE :: FiniteMap Char a  ->  Char  ->  [a])

module FiniteMap where
  import qualified Maybe
import qualified Prelude

  data FiniteMap b a = EmptyFM  | Branch b a Int (FiniteMap b a) (FiniteMap b a


  instance (Eq a, Eq b) => Eq (FiniteMap b a) where 

  eltsFM_GE :: Ord b => FiniteMap b a  ->  b  ->  [a]
eltsFM_GE fm fr foldFM_GE eltsFM_GE0 [] fr fm

  
eltsFM_GE0 key elt rest elt : rest

  foldFM_GE :: Ord a => (a  ->  c  ->  b  ->  b ->  b  ->  a  ->  FiniteMap a c  ->  b
foldFM_GE k z fr EmptyFM foldFM_GE3 k z fr EmptyFM
foldFM_GE k z fr (Branch key elt vw fm_l fm_rfoldFM_GE2 k z fr (Branch key elt vw fm_l fm_r)

  
foldFM_GE0 k z fr key elt vw fm_l fm_r True foldFM_GE k z fr fm_r

  
foldFM_GE1 k z fr key elt vw fm_l fm_r True foldFM_GE k (k key elt (foldFM_GE k z fr fm_r)) fr fm_l
foldFM_GE1 k z fr key elt vw fm_l fm_r False foldFM_GE0 k z fr key elt vw fm_l fm_r otherwise

  
foldFM_GE2 k z fr (Branch key elt vw fm_l fm_rfoldFM_GE1 k z fr key elt vw fm_l fm_r (key >= fr)

  
foldFM_GE3 k z fr EmptyFM z
foldFM_GE3 wv ww wx wy foldFM_GE2 wv ww wx wy


module Maybe where
  import qualified FiniteMap
import qualified Prelude



Haskell To QDPs


↳ HASKELL
  ↳ LR
    ↳ HASKELL
      ↳ BR
        ↳ HASKELL
          ↳ COR
            ↳ HASKELL
              ↳ Narrow
                ↳ AND
QDP
                    ↳ QDPSizeChangeProof
                  ↳ QDP
                  ↳ QDP

Q DP problem:
The TRS P consists of the following rules:

new_foldFM_GE3(wz9, Branch(wz3340, wz3341, wz3342, wz3343, wz3344), h) → new_foldFM_GE1(wz9, wz3340, wz3341, wz3342, wz3343, wz3344, h)
new_foldFM_GE1(wz9, Char(Zero), wz331, wz332, wz333, wz334, h) → new_foldFM_GE2(wz331, new_foldFM_GE0(wz9, wz334, h), wz333, h)
new_foldFM_GE1(wz9, Char(Zero), wz331, wz332, wz333, wz334, h) → new_foldFM_GE3(wz9, wz334, h)
new_foldFM_GE(wz3000, wz31, wz5, Branch(wz330, wz331, wz332, wz333, wz334), h) → new_foldFM_GE1(new_eltsFM_GE0(wz3000, wz31, wz5, h), wz330, wz331, wz332, wz333, wz334, h)
new_foldFM_GE1(wz9, Char(Succ(wz33000)), wz331, wz332, wz333, wz334, h) → new_foldFM_GE(wz33000, wz331, new_foldFM_GE0(wz9, wz334, h), wz333, h)
new_foldFM_GE2(wz31, wz6, Branch(wz330, wz331, wz332, wz333, wz334), h) → new_foldFM_GE1(new_eltsFM_GE00(wz31, wz6, h), wz330, wz331, wz332, wz333, wz334, h)
new_foldFM_GE1(wz9, Char(Succ(wz33000)), wz331, wz332, wz333, Branch(wz3340, wz3341, wz3342, wz3343, wz3344), h) → new_foldFM_GE1(wz9, wz3340, wz3341, wz3342, wz3343, wz3344, h)

The TRS R consists of the following rules:

new_foldFM_GE10(wz9, Char(Zero), wz331, wz332, wz333, wz334, h) → new_foldFM_GE5(wz331, new_foldFM_GE0(wz9, wz334, h), wz333, h)
new_foldFM_GE4(wz3000, wz31, wz5, EmptyFM, h) → new_eltsFM_GE0(wz3000, wz31, wz5, h)
new_eltsFM_GE00(wz31, wz6, h) → :(wz31, wz6)
new_foldFM_GE4(wz3000, wz31, wz5, Branch(wz330, wz331, wz332, wz333, wz334), h) → new_foldFM_GE10(new_eltsFM_GE0(wz3000, wz31, wz5, h), wz330, wz331, wz332, wz333, wz334, h)
new_foldFM_GE5(wz31, wz6, EmptyFM, h) → new_eltsFM_GE00(wz31, wz6, h)
new_foldFM_GE0(wz9, EmptyFM, h) → wz9
new_foldFM_GE10(wz9, Char(Succ(wz33000)), wz331, wz332, wz333, wz334, h) → new_foldFM_GE4(wz33000, wz331, new_foldFM_GE0(wz9, wz334, h), wz333, h)
new_foldFM_GE5(wz31, wz6, Branch(wz330, wz331, wz332, wz333, wz334), h) → new_foldFM_GE10(new_eltsFM_GE00(wz31, wz6, h), wz330, wz331, wz332, wz333, wz334, h)
new_eltsFM_GE0(wz3000, wz31, wz5, h) → :(wz31, wz5)
new_foldFM_GE0(wz9, Branch(wz3340, wz3341, wz3342, wz3343, wz3344), h) → new_foldFM_GE10(wz9, wz3340, wz3341, wz3342, wz3343, wz3344, h)

The set Q consists of the following terms:

new_foldFM_GE0(x0, EmptyFM, x1)
new_eltsFM_GE0(x0, x1, x2, x3)
new_foldFM_GE0(x0, Branch(x1, x2, x3, x4, x5), x6)
new_eltsFM_GE00(x0, x1, x2)
new_foldFM_GE4(x0, x1, x2, Branch(x3, x4, x5, x6, x7), x8)
new_foldFM_GE10(x0, Char(Zero), x1, x2, x3, x4, x5)
new_foldFM_GE5(x0, x1, EmptyFM, x2)
new_foldFM_GE4(x0, x1, x2, EmptyFM, x3)
new_foldFM_GE10(x0, Char(Succ(x1)), x2, x3, x4, x5, x6)
new_foldFM_GE5(x0, x1, Branch(x2, x3, x4, x5, x6), x7)

We have to consider all minimal (P,Q,R)-chains.
By using the subterm criterion [20] together with the size-change analysis [32] we have proven that there are no infinite chains for this DP problem.

From the DPs we obtained the following set of size-change graphs:



↳ HASKELL
  ↳ LR
    ↳ HASKELL
      ↳ BR
        ↳ HASKELL
          ↳ COR
            ↳ HASKELL
              ↳ Narrow
                ↳ AND
                  ↳ QDP
QDP
                    ↳ QDPSizeChangeProof
                  ↳ QDP

Q DP problem:
The TRS P consists of the following rules:

new_foldFM_GE12(wz103, wz104, wz105, wz106, wz107, wz108, wz109, h) → new_foldFM_GE6(new_eltsFM_GE0(wz105, wz106, new_foldFM_GE7(wz103, wz104, wz109, h), h), wz104, wz108, h)
new_foldFM_GE12(wz103, wz104, wz105, wz106, wz107, wz108, wz109, h) → new_foldFM_GE6(wz103, wz104, wz109, h)
new_foldFM_GE6(wz61, wz48, Branch(Char(Succ(wz52000)), wz521, wz522, wz523, wz524), ba) → new_foldFM_GE11(wz61, wz48, wz52000, wz521, wz522, wz523, wz524, wz52000, wz48, ba)
new_foldFM_GE11(wz103, wz104, wz105, wz106, wz107, wz108, wz109, Succ(wz1100), Succ(wz1110), h) → new_foldFM_GE11(wz103, wz104, wz105, wz106, wz107, wz108, wz109, wz1100, wz1110, h)
new_foldFM_GE11(wz103, wz104, wz105, wz106, wz107, wz108, wz109, Succ(wz1100), Zero, h) → new_foldFM_GE6(new_eltsFM_GE0(wz105, wz106, new_foldFM_GE7(wz103, wz104, wz109, h), h), wz104, wz108, h)
new_foldFM_GE11(wz103, wz104, wz105, wz106, wz107, wz108, wz109, Zero, Zero, h) → new_foldFM_GE12(wz103, wz104, wz105, wz106, wz107, wz108, wz109, h)
new_foldFM_GE11(wz103, wz104, wz105, wz106, wz107, wz108, wz109, Succ(wz1100), Zero, h) → new_foldFM_GE6(wz103, wz104, wz109, h)
new_foldFM_GE11(wz103, wz104, wz105, wz106, wz107, wz108, wz109, Zero, Succ(wz1110), h) → new_foldFM_GE6(wz103, wz104, wz109, h)
new_foldFM_GE6(wz61, wz48, Branch(Char(Zero), wz521, wz522, wz523, wz524), ba) → new_foldFM_GE6(wz61, wz48, wz524, ba)

The TRS R consists of the following rules:

new_foldFM_GE7(wz61, wz48, EmptyFM, ba) → wz61
new_foldFM_GE7(wz61, wz48, Branch(Char(Succ(wz52000)), wz521, wz522, wz523, wz524), ba) → new_foldFM_GE13(wz61, wz48, wz52000, wz521, wz522, wz523, wz524, wz52000, wz48, ba)
new_foldFM_GE7(wz61, wz48, Branch(Char(Zero), wz521, wz522, wz523, wz524), ba) → new_foldFM_GE7(wz61, wz48, wz524, ba)
new_foldFM_GE13(wz103, wz104, wz105, wz106, wz107, wz108, wz109, Succ(wz1100), Succ(wz1110), h) → new_foldFM_GE13(wz103, wz104, wz105, wz106, wz107, wz108, wz109, wz1100, wz1110, h)
new_foldFM_GE13(wz103, wz104, wz105, wz106, wz107, wz108, wz109, Zero, Zero, h) → new_foldFM_GE14(wz103, wz104, wz105, wz106, wz107, wz108, wz109, h)
new_foldFM_GE13(wz103, wz104, wz105, wz106, wz107, wz108, wz109, Zero, Succ(wz1110), h) → new_foldFM_GE7(wz103, wz104, wz109, h)
new_foldFM_GE14(wz103, wz104, wz105, wz106, wz107, wz108, wz109, h) → new_foldFM_GE7(new_eltsFM_GE0(wz105, wz106, new_foldFM_GE7(wz103, wz104, wz109, h), h), wz104, wz108, h)
new_eltsFM_GE0(wz3000, wz31, wz5, bb) → :(wz31, wz5)
new_foldFM_GE13(wz103, wz104, wz105, wz106, wz107, wz108, wz109, Succ(wz1100), Zero, h) → new_foldFM_GE14(wz103, wz104, wz105, wz106, wz107, wz108, wz109, h)

The set Q consists of the following terms:

new_foldFM_GE13(x0, x1, x2, x3, x4, x5, x6, Succ(x7), Succ(x8), x9)
new_foldFM_GE13(x0, x1, x2, x3, x4, x5, x6, Succ(x7), Zero, x8)
new_foldFM_GE7(x0, x1, Branch(Char(Succ(x2)), x3, x4, x5, x6), x7)
new_foldFM_GE7(x0, x1, EmptyFM, x2)
new_foldFM_GE13(x0, x1, x2, x3, x4, x5, x6, Zero, Succ(x7), x8)
new_eltsFM_GE0(x0, x1, x2, x3)
new_foldFM_GE13(x0, x1, x2, x3, x4, x5, x6, Zero, Zero, x7)
new_foldFM_GE7(x0, x1, Branch(Char(Zero), x2, x3, x4, x5), x6)
new_foldFM_GE14(x0, x1, x2, x3, x4, x5, x6, x7)

We have to consider all minimal (P,Q,R)-chains.
By using the subterm criterion [20] together with the size-change analysis [32] we have proven that there are no infinite chains for this DP problem.

From the DPs we obtained the following set of size-change graphs:



↳ HASKELL
  ↳ LR
    ↳ HASKELL
      ↳ BR
        ↳ HASKELL
          ↳ COR
            ↳ HASKELL
              ↳ Narrow
                ↳ AND
                  ↳ QDP
                  ↳ QDP
QDP
                    ↳ QDPSizeChangeProof

Q DP problem:
The TRS P consists of the following rules:

new_foldFM_GE8(Char(Zero), Branch(Char(Zero), wz31, wz32, wz33, wz34), h) → new_foldFM_GE8(Char(Zero), wz34, h)
new_foldFM_GE8(Char(Zero), Branch(Char(Succ(wz3000)), wz31, wz32, wz33, wz34), h) → new_foldFM_GE8(Char(Zero), wz34, h)

R is empty.
Q is empty.
We have to consider all minimal (P,Q,R)-chains.
By using the subterm criterion [20] together with the size-change analysis [32] we have proven that there are no infinite chains for this DP problem.

From the DPs we obtained the following set of size-change graphs: